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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS ryant snee UNDER A LICENSE AND MAY BE USED AND corre 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE Tgithl NOTICE. THIS SOFTWARE OR ANY OTHER 

AY E PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
vaanstcketee” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aeeokatite. © NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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> 
+ 


Facility: rms32 
Abstract: 


this routine is the highest level control 
routine to perform the $rewind function. 


Environment: 


Author: | f laverdure, 


star processor running starlet exec. 
creation date: 24-OCT-1977 


Modified By: 


v03-004 KPLO001 Peter Lieberwirth 20-Jun-1983 
Change some references to JNLFLG to JNLFLG2. 
V03-003 JwWHO182 Jeffrey W. Horn weer gen tyes 


If we are doing ‘fake’ record locking and we‘ 


recovery unit, then make sure we make call to "RMSUNLOCKALL, 


regardless of the state of IFBSV_NORECLK. 


v03-002 K8T0190 Keith B. Thompson 23-Aug-1982 
Reorganize psects and rename entry point to single ‘S$’ 


v03-001 CDS0002 C Sae 17-Feb-1982 
Don't clear IRBSV Betti on rewind. 


v02-014 CDS0001 C Saet p5- ~Aug-1981 
Remove SQ0O check Bante y PPF check 


| 
| 
| 
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v04 -SEP-1984 16:25:2 RMS.SRCIRMSOREWIN.MAR; 1 
0 8 28 3 v02-013 erusest P Lieberwirth 39-Jul-1981 
: enge en entry point to $$ form so we can get here via 
oY : Rngoge 
6¢ ; v02=012 KRM0002 Malik 09-DEC-1980 
09 o ; modify BKPMASK te Soomial clearing IRESY. DAP_CON. 
00 65 : v02-011 REFORMAT P S$ Knibbe 25-Jul-1980 
09 8$ : v010 JAK0020 »? A Krycka 05-SEP-1979 09:00 
00 re ; release 2.0 wor 
0000 % : v008 RANOOO2 R A Newell 06-SEP-1978 08:53 
000 71; rms32 isam modification. 
0000 te 3 
0000 73 :-- 
0000 74 


00000020 


EFBFFBE6 
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3; Include Files: 


A stcrtlenae 


»SBTTL 
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-SEP-1984 93:38:58 RMS. SRCIRMSOREWIN.MAR; 1 ” 3) 
DECLARATIONS 


> Equated Symbols: 


BKP=IRBSL_BKPBITS*8 
BKPMASK= BSH tant: BUSY-BKP>>!= 


: Own Storage: 


bit offset to bookkeeping bits 


<18<IRB$V_ASYNC-BKP>>!- 
C1ac IRBs ASYNCWAI T-BKP>>!- 
<18<1RBS$V_RAHWBH-BKP>>! - 
<1a<IRBSV_ _GBLBUF F -BKP>>!- 


<18<1RB$V_DAP_CONN-BKP>>> zy mask to reset bits 


2 
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~SBTTL RMSSREWIND - SREWIND FILE ROUTINE 


RMSOREWIN ND OPER 
v04 D E 


ze 
ao 
wr 
om 
Po] 

eu 
zn 


++ 

; RMSSREWIND - Rewind file 

this routine performs common rab function setup followed by an 

implicit $free and $flush and then by dispatch to organization-dependent 
$Srewind code 

Calling sequence: 


entered from exec as a result of user's calling sys$rewind 
(e.g., by using the Srewind macro) 


Input Parameters: 

ap user's argument List addr 
Implicit Inputs: 

the contents of the rab and related irab and ifab. 
Output Parameters: 


OoOoOQCOoOooOoQooooooooooooooo ™Zz 


0 
0000 ri destroyed 
0000 r0 status code 
0000 
444 Implicit Outputs: 
0000 all locked records for the stream are freed, and the stream is 


popeg ss sane at the start of the file. the file attributes are also 
for the sequential org., all bdb’s and buffers are released. 
rab$l_sts and rab$l_stv reflect the status of the rewind. 
a completion ast is queued if specified in the user arglist. 
Completion Codes: 
standard rms (see functional spec for List). 
Side Effects: 


none 


Se Se Se Se Ge Ge Ge Ge Ge Se Se Se Be Ge Se Ge Ge Se Se Se Se Se Se Se Ge Se Se Ge Ge Se Se Se Ge Se Se Ge Se Se Ge Se Se He Se Ge 
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v04- RAS ERE GID - SREWIND FILE ROUTINE oat tt 01:58:38 RMS .SRCIRMSOREWIN.MAR; 1 ° 
8 1 § SENTRY RMSSREWIND 
1 STSTPT REWIND 
: 138 SRABSET ; do common setup with no specific checks 
Sha 401 | doturns ¢ 
3; returns to user on error 
Be 
63 6A 3€&€ £0 QOOA 164 BBS #IFBSV_DAP,(R10),NTRWND ; branch if network operation 
es E0 00 165 BBS #IRBSV_PPF_IMAGE,- 
6B 6 001 166 (R9) ,ERRIOP ; branch if indirect ppf 
OF €1 0012 167 BBC #dEV$V_FOD,- 
6A 0014 168 IFB$L_PRIM.DEV(R10) ,- 
67 0015 169 ERRIOP ; or if unit rec device 
02 €1 0016 #£«170 BBC #IFBSV_RUP,- 
06 OOA2 CA 0018 171 IFBSB_JNLFLG2(R10),10$ ; branch if not in RU 
03 €0 OOIC 76 BBS #1FBS0_RU Pos 
04 OOA2 C9 4h 17 IFB$B_JNLFLG2(R9),20$_ _; branch if ‘fake’ record locking 
03 6A 33 3 002 174 108: BBS #IFBSO_NORECLK,(R10),30$: omit record unlock if no Locking 
FFD7" 30 0026 175 208: BSBw RMSUNLOCKALL 3 free any locked records 
0029 176 ; Cignore possible error) 
0029 177 308: 
0029 178 
0029 179; 
0029 180 ; dispatch to org-dependent code 
0029 181; 
0029 136 
b0Se 18 CASE TYPE=B,- 
0029 184 SRC=I1FB$B_ORGCASE(R10),-; and dispatch 
oH 185 DISPLIST=<RWSEQ,RWREL ,RWIDX> 
0034 186 
0034 187; 
Ope 188 PRATER ATER AAA ATTA AAA AAA TA TAA A AAT 
0034 189; 
st 13y : indexed specific rewind 
0034 192 ITTIIII ITIL T IIT LTL LITT itttiiii titi iiiiiti titi iiititi titi iit itil 
0034 193; 
0034 194 
00000000 'EF 16 0034 195 RWIDX: JSB RMSREWINDS 3; do indexed specific rewind 
ae Basa 138 BRB DONE 
003C 198 FRR AAA AAA AAA AAA AAA AAA AAA AAA AAA AREA AAA AACA AAAS 
03C 199; 
a03¢ $30 3 sequential file org rewind 
003 03 ITTIITI IIIT ITIITIT ITT T TTT Titi ttt iti iit iiiiiiiiiiiiiiiiiitiiiiiiiih 
C 
FFC1"® 30 it 04 RWSEQ: BSBW RMSFLUSH 3; write and release any bdbs 
Boer 05 : rewriting file attributes 
2c 50 «6&9 «6(003F 6 BLBC RO,EXIT ; get out on error 
62 ADs «BS Boag 0 CLRW IRB$W_CSIZ(R9) 3 reset to no current record 
05 04 08 BBC #DEV $QD,- 
6A 047 09 IFBSL_PRIM_DEV(R10) ,- 
0D os 19 RWREL ; branch if not magtape 
49 12 ; 


RMSOREWIN FILE REWIND OPERATION 16-SEP-1984 01:28:42 VAX/VMS Macro V04-00 Page 6 RMS! 
v04 RASEREGIND - SREWIND FILE ROUTINE g-3eE 19 4 04:38:56 RMS.SRCIRMSOREWIN.MAR; 1 . (4) v04 
49 13; magtape support 
iF 1g gtape supp 
74 AA_ 01 cE 49 1$ MNEGL #1,1FBS$L_EBK(R10) 3; set eof block to max value 
5C AA 8 04D 1 CLRW IFB$W_FFBCR10) 3; reset eof offset 
FFAD' 30 839 18 BSBW RMSREQIND_MT 3; do rewind 
1850 = =«=€9 1 BLBC RO,EXIT ; get out on error 
Bee 9 ; else fall thru | 
B20 § FRR REA E REAR AAA AREER RAE A RARE EEE AAE EEE REE EES 
Beee : : relative file org rewind 
Boee 8 ITT IT IIIT Iii e ttt iti i iii i titi iti titi iii iii iti iti titi, 
0056 
baee 3 ASSUME IRBSL_NRP_OFF EQ IRBSL_NRP_VBN+4. 
40 a9 —7C iets QO RWREL: CLRQ IRB$L_NRP_VBN(R9) 3 reset nrp 
18 €0 0059 31 BBS #DEVS Pd 
03 6A 0058 3 IFBSL_PRIM_DEV(R10),10$ ; branch if non-file-struc. 
40 A996 Bn28 234 INCB IRB$L_NRP_VBN(R9) 3 arp = vbn 1 
4 $2 10$: ASSUME IRBSL_RP_OFF EQ IRBSL_RP_VBN+4 
48 A9 7 9600 $39 CLRQ = IRB$SL_RP_VBN(R9) 
006 238 
0063 39 ; 
0063 40 ; clear all irab bookkeeping bits except busy, async, asyncwait, rahwbh 
0063 41; gblbuff & dap_con. 
0063 stg ; 
0063 24 
04 AD EFBFFBE6 8F CA Opes ste DONE: BICL #BKPMASK, IRB$L_BKPBITS(R9) 
FF8F* 31 OQO6E€ 246 EXIT: BRW RMSEXRMS 3; return to caller 
0071 247 
0071 248 ;++ 
0071 249; 
0071 $24 : perform network rewind function 
0071 31 3 
0071 $26 3°= 
0071 25 
0071 254 NTRWND: ; 
FF8C' 30 0071 255 BSBW NTSREWIND : rewind the file 
F750 —s«EY pore 2$ BLBC EX ; branch on error ; 
40 a9 «=6(01-—ss«=#Ds«é0077 5 MOVL #1, IRBSL_NRP_VBN(R9) 3; reset next block pointer 
E6 11 0078 58 BRB DONE : rejoin mainline 
007D 59 
007) 260 ; | 
007D 261 ; handle error 
007D 6¢ : 
007D 6 
007D 264 ERRIOP: 
007D 65 RMSERR 10P ; can't rewind unit rec dev, or 
008 06 3 process perm. file if indirectly 
00 6 3 connected 
EA 11 00 68 BRB EXIT 
0084 69 
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Symbol table =SEP=1984 16:25:2 RMS.SRCIRMSOREWIN.MAR; 1 (4) v04 
$$.PSECT_EP = BO 888800 
SSRMSTEST = B386810 
SSRMS_PBUGCHK = 00000010 
$S$RMS_TBUGCHK = 00000008 
$SRMS_UMO = 00000004 
BKP = 00000020 
BKPMASK = aaah 
DEVS$V_FOD = BANOO OE 
DEVSV_FOR = 0000001 
DEV$V_SQD = 44 4ie 
DONE 00000063 R 01 
ERRIOP at 4 R 01 
EXIT QOOO06E R 01 
IF BS$B_JNLFLG2 = Q00000A 
1FB$B_ORGCASE = 0000002 
IFBSL_EBK = 00000074 
IFS$L_PRIM_DEV = 00000000 i 
IFBSV_DA = Q000003E 
IFBSV_NORECLK = 00000033 
1FBS$V_RUP = 44444 
IFBSV~RU_RLK = 0000000 | 
IFBSW_FFE = 0000005C 
IRB$L_BKPBITS = 00000004 | 
IRBSL_NRP_OFF = 00000044 
IRBSL_NRP_VBN = 00000040 
IRBSL_RP_OF = 0000004C 
IRBSL_RP vent = 00000048 
IRBSV_ASYN = 00000023 
IRBSV_ASYNCWAIT = 00000024 
IRBSV_BUSY = 44494 
IRBSV_DAP_CONN = 0000003C 
IRBSV_GBL = 00000036 
IRBSV_PPF_ IMAGE = 00000022 
IRBSV_RAH = 0000002A 
IRB$W_CSIZ = 00000062 
STOREDIND keekeeee x 01 
NTRWN 00000071 R 01 
PIOSA. TRACE reekekee x 01 
RMSE XRMS eeeeeeee =X 01 
RMSFLUSH eeekkeee x 01 } 
RASREWINDS reekenee X 01 
aod al MT rekeeree 4 01 
eeeekeee x 01 
RASUNEOCKALL treeeeee x Q1 
at = FFFFFFFE RG 01 
RMS$_IOP = 00018574 
RWIDR 00000034 R 01 
RWREL 00000056 R 01 
RWSEQ 0000003C R 01 
TPTSL_REWIND reeeeeee x 01 
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Psect synopsis 


ww or eres eensaron on 


! Psect synopsis ! 


os + 


PSECT name Allocation PSECT No. Attributes 


The working set Limit was 1350 pages. : 

34665 bytes (68 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 678 non-local and 6 local symbols. 
270 source Lines were read in Pass 1, producing 135 object records in Pass 2. 

21 pages of virtual memory were used to define 20 macros. 


few oer oe ew ew ene ere ene nent eee es + 
! Macro library statistics ! 
+ 


Geweweweseeeosoesesesoseeso 


Macro Library name Macros defined 


_$255$DUA28: CRMS .OBJIJRMS.MLB; 1 10 
“$255$DUA28:(SYS.0BJJLIB.MLB: 1 1 

$255$DUA28: CSYSLIBISTARLET.MLB;2 5 
TOTALS (all Libraries) 16 


799 GETS were required to define 16 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMSOREWIN/OBJ=OBJ$:RMSOREWIN MSRC$:RMSOREWIN/UPDATE=(ENHS$: RMSOREWIN) +EXECML$/LIB+LIB$:RMS/LIB 


WRT NOVEC BYTE 
OWRT NOVEC BYTE 
WRT NOVEC BYTE 


_ = 00000000 < 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NO 
RMSRMS 00000084 Syecd Ot f Ba PIC USR CON REL GBL NOSHR EXE RD N 
SABSS 00000000 < 0.) 02 ¢ 2.) NOPIC USR CON’ ABS LCL NOSHR EXE RD 
Powe eter new men wom ree m oon + 
! Performance indicators ! 
Peete wen ere aeecen se eare eae ae 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.09 00:00:01.07 
Command processing 110 00:00:00.79 ssh Be Be 3 
Pass 1 245 00:00:06.52 00:00:15.80 
Symbol table sort 0 00:00:00.79 00:00:00.92 
Pass 2 59 00:00:01.34 00:00:02.60 
Symbol table output 8 00:00:00.08 00:00:00.15 
Psect synopsis output 2 00:00:00.01 00:00:00.04 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 455 00:00:09.62 00:00:24.80 
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